home *** CD-ROM | disk | FTP | other *** search
/ Shareware Extravaganza - Disc 1 / ShareWare Extravaganza 1 of 4 (The Ultimate Shareware Company).iso / sblaster / sbvoma.zip / MAIN.BAT < prev    next >
DOS Batch File  |  1991-02-26  |  1KB  |  77 lines
  1. SA BRIGHT WHITE ON BLUE
  2. cls
  3. TYPE MAIN.TXT
  4. ASK  "TYPE IN A LETTER", ABCDEFGHIJLQ
  5. IF ERRORLEVEL 12 GOTO BYE
  6. if errorlevel 11 goto listen
  7. if errorlevel 10 goto R10
  8. if errorlevel 9 goto R9
  9. if errorlevel 8 goto R8
  10. if errorlevel 7 goto r7
  11. if errorlevel 6 goto r6
  12. if errorlevel 5 goto r5
  13. if errorlevel 4 goto r4
  14. if errorlevel 3 goto r3
  15. if errorlevel 2 goto r2
  16. if errorlevel 1 goto r1
  17. :listen
  18. CLS
  19. TYPE LISTEN.TXT
  20. ASK  "TYPE IN A LETTER", ABCDEFGHIJRQ
  21. IF ERRORLEVEL 12 GOTO BYE
  22. IF ERRORLEVEL 11 GOTO L11
  23. IF ERRORLEVEL 10 GOTO L10
  24. IF ERRORLEVEL 9 GOTO L9
  25. IF ERRORLEVEL 8 GOTO L8
  26. IF ERRORLEVEL 7 GOTO L7
  27. IF ERRORLEVEL 6 GOTO L6
  28. IF ERRORLEVEL 5 GOTO L5
  29. IF ERRORLEVEL 4 GOTO L4
  30. IF ERRORLEVEL 3 GOTO L3
  31. IF ERRORLEVEL 2 GOTO L2
  32. IF ERRORLEVEL 1 GOTO L1
  33. :L11
  34. MAIN
  35. goto bye
  36. :R10
  37. RECORD J
  38. :L10
  39. LISTEN J
  40. :R9
  41. RECORD I
  42. :L9
  43. LISTEN I
  44. :R8
  45. RECORD H
  46. :L8
  47. LISTEN H
  48. :R7
  49. RECORD G
  50. :L7
  51. LISTEN G
  52. :R6
  53. RECORD F
  54. :L6
  55. LISTEN F
  56. :R5
  57. RECORD E
  58. :L5
  59. LISTEN E
  60. :R4
  61. RECORD D
  62. :L4
  63. LISTEN D
  64. :R3
  65. RECORD C
  66. :L3
  67. LISTEN C
  68. :R2
  69. RECORD B
  70. :L2
  71. LISTEN B
  72. :R1
  73. RECORD A
  74. :L1
  75. LISTEN A
  76. :BYE
  77.